home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio
/
Ham Radio CD-ROM (Emerald Software) (1995).ISO
/
log
/
db3log
/
getutc.prg
< prev
next >
Wrap
Text File
|
1987-04-17
|
880b
|
32 lines
* GETUTCDT.PRG
* GET SYSTEM TIME AND CONVERT TO UTC - DAYLIGHT TIME
* 03/09/87
public MHOUR,MMIN,MMO,MDAY,MYR
store substr(TIME(),1,2) to MHOUR
store substr(TIME(),4,2) to MMIN
store date() to MDATE
store month(MDATE) to MMO
store day(MDATE) to MDAY
store year(MDATE)-1900 to MYR
store val(MHOUR) to MHOUR
store val(MMIN) to MMIN
store int(MHOUR) to MHOUR
store int(MMIN) to MMIN
store MHOUR+4 to MHOUR
if MHOUR >= 24
store MHOUR-24 to MHOUR
store MDAY+1 to MDAY
endif
if MDAY = 32
store MMO+1 to MMO
if MMO = 2 .AND. MDAY = 29
store MDAY-28 to MDAY
if MMO = 4 .OR. MMO = 6 .OR. MMO = 9 .OR. MMO = 11 .AND. MDAY = 31
store MDAY-30 to MDAY
else
store MDAY-31 to MDAY
endif
endif
endif
return